home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / Desk.p < prev    next >
Encoding:
Text File  |  1992-02-26  |  3.0 KB  |  111 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: Desk.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-91
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT DESK;
  11.  
  12. INTERFACE
  13.  
  14. USES TYPES, QUICKDRAW, EVENTS, CONTROLS, WINDOWS;
  15.  
  16. CONST
  17. { Error Codes }
  18. daNotFound = $0510;  { desk accessory not found }
  19. notSysWindow = $0511;  { not the system window }
  20. deskBadSelector = $0520; { bad selector for GetDeskAccInfo }
  21.  
  22. { NDA Action Codes }
  23. eventAction = $0001;
  24. runAction = $0002;
  25. cursorAction = $0003;
  26. undoAction = $0005;
  27. cutAction = $0006;
  28. copyAction = $0007;
  29. pasteAction = $0008;
  30. clearAction = $0009;
  31. sysClickAction = $000A;
  32. optionalCloseAction = $000B;
  33.  
  34. { SystemEdit Codes }
  35. undoEdit = $0001;
  36. cutEdit = $0002;
  37. copyEdit = $0003;
  38. pasteEdit = $0004;
  39. clearEdit = $0005;
  40.  
  41. { GetDeskAccInfo constants }
  42. getCDAinfo = $8000;
  43. getNDAinfo = $0000;
  44. daRefIsWindPtr = $0001;
  45. daRefIsIndex = $0000;
  46.  
  47. { GetDeskGlobal constants }
  48. deskGlobalWindow = $0000;
  49.  
  50. { CallDeskAcc constants }
  51. daCallCDA = $8000;
  52. daCallNDA = $0000;
  53. daCallInit = $0002;
  54. daCallAction = $0000;
  55. { daRefIsWindPtr = $0001; }
  56. { daRefIsIndex = $0000; }
  57.  
  58. TYPE
  59. NDASysWindRecPtr = ^NDASysWindRecord;
  60. NDASysWindRecord = RECORD
  61.     status: integer; { use 0, reserved for Desk Mgr }
  62.     openProc: LongProcPtr; { reserved, use nil }
  63.     closeProc: ProcPtr; { pointer to your Close routine }
  64.     actionProc: ProcPtr; { pointer to your Action routine }
  65.     initProc: ProcPtr; { reserved, use nil }
  66.     period: integer;
  67.     eventMask: integer; { your event mask, like for an NDA }
  68.     lastServiced: longint; { reserved, use 0 }
  69.     windowPtr: longint; { reserved, use 0 }
  70.     ndaHandle: longint; { reserved, use 0 }
  71.     memoryID: integer; { your memory ID, important! }
  72. END;
  73.  
  74. PROCEDURE AddToRunQ ( runItemPtr:Ptr);
  75. PROCEDURE ChooseCDA;
  76. PROCEDURE CloseAllNDAs;
  77. PROCEDURE CloseNDA ( refNum:Integer);
  78. PROCEDURE CloseNDAByWinPtr ( theWindowPtr:WindowPtr);
  79. PROCEDURE DeskBootInit;
  80. PROCEDURE DeskReset;
  81. PROCEDURE DeskShutDown;
  82. PROCEDURE DeskStartUp;
  83. FUNCTION  DeskStatus: Boolean;
  84. FUNCTION  DeskVersion: Integer;
  85. PROCEDURE FixAppleMenu(startingID:Integer);
  86. FUNCTION  GetDAStrPtr: Ptr;
  87. FUNCTION  GetNumNDAs: Integer;
  88. PROCEDURE InstallCDA(idHandle:Handle);
  89. PROCEDURE InstallNDA(idHandle:Handle);
  90. FUNCTION  OpenNDA(idNum:Integer): Integer;
  91. PROCEDURE RemoveCDA(idHandle:Handle);
  92. PROCEDURE RemoveFromRunQ(runItemPtr:Ptr);
  93. PROCEDURE RemoveNDA(idHandle:Handle);
  94. PROCEDURE RestAll;
  95. PROCEDURE RestScrn;
  96. PROCEDURE SaveAll;
  97. PROCEDURE SaveScrn;
  98. PROCEDURE SetDAStrPtr(altDispHandle:Handle; stringTablePtr:Ptr);
  99. PROCEDURE SystemClick(eventRecPtr:EventRecord; theWindowPtr:GrafPortPtr; findWndwResult:Integer);
  100. FUNCTION  SystemEdit(editType:Integer) : Boolean;
  101. FUNCTION  SystemEvent(eventWhat:Integer; eventMessage:Longint; eventWhen:Longint; eventWhere:Point; eventMods:Integer) : Boolean;
  102. PROCEDURE SystemTask;
  103.  
  104. PROCEDURE GetDeskAccInfo(flags:integer; daReference:Ref; buffSize:integer; bufferPtr:Ptr);
  105. FUNCTION CallDeskAcc(flags:integer; daReference:Ref; action:integer; data:longint):integer;
  106. FUNCTION GetDeskGlobal(selector:integer):longint;
  107.  
  108. IMPLEMENTATION
  109.  
  110. END.
  111.